home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Tools / l-count next >
Lisp/Scheme  |  1998-08-11  |  823b  |  31 lines
  1. l-count operator type length 
  2.  
  3. type :sum :list :content
  4. operator :all :note :rest 
  5.  
  6. This function enables content analysis of a list or lists of note-lengths. 
  7.  
  8. (setq length (qlength '((16-210) (16-120) (4-1))))
  9.  
  10. (l-count :all :sum length)
  11. => 7
  12. (l-count :note :sum length)
  13. => 5
  14. (l-count :rest :sum length)
  15. => 2
  16. (l-count :all :list length)
  17. => 3
  18. (l-count :all :content length)
  19. => (3 3 1)
  20. (l-count :note :content length)
  21. => (2 2 1)
  22. (l-count :rest :content length)
  23. => (1 1 0)
  24.  
  25. Its use is likely to be in those situations where a secondary or additional note-length list or lists need to be generated from a master. It is also useful for processing a list of symbols to match lists of note-lengths. 
  26.  
  27. (setq symbols 
  28.       (symbol-divide
  29.        (l-count :all :content length) nil nil '(a b c d e f g)))
  30. => ((a b c) (d e f) (g))
  31.